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Make changes for new CLI interface. Take out prefix 
clause, which is no longer needed. Add disallow clauses 
for qualifiers that cannot go together. 


v03-001 mMD0056 Ren Sunent 28-Mar-1983 
Changed /OVERRIDE to inc ER_IDENTIFIER, added /AUTO and /INIT 
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‘ 
: Version: *v04-000' 
i v03-007 DAS0002 David Solomon 09-Jul-1984 
: Add /CNOJREBUILD. 
i v03-006 HH0028 Hai Huang 27-Jun-1984 
: Make appropriate qualifiers negatable. 
i V03-005 HH0004 Hai Huang 09-Mar-1984 
: Add /CLUSTER qualifier. 
i v03-004 wMc0001 Wayne Cardoza 16-Jan-1984 
: Remove all journaling keywords. 
i v03-003 DAS0001 David Solomon 29-Nov-1983 
: Add RECORD_SIZE keyword for /JOURNAL qualifier. 
v03-002 MCNO138 Maria del C. Nasr 12-Jul-1983 
; 
4 
: 
: 
H 
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define type cache_options 


eyword extent, value(required,type=$number) ,negatable 
keyword file_id, value(required, type=$number) ,negatable 
keyword Limit, value(required, type=$number ) 

keyword quota, value(required,type=$number) ,negatable 


keyword writethrough 


define type datacheck_options 
eyword read 
keyword write 


define type initialize_options 
eyword a 
keyword continuation 


'eeJNL** define type Jquraa\ options 
e 


'eeJNL te keyword new , 

!eeJNL Os keyword size, value(required, type=$number ) 
'eeJNLee keyword extension, value(required, type=$number ) 
!eeJNLee keyword gyets value(required, type=$number ) 
ieeJNLee keyword RECORD_SIZE,  value(required.type=$number) 


keyword qupirat on 
keyword identification, syntax=mount_wo_label 


EE 
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define type protection 
eyword system,value 
keyword group,value 
keyword owner ,value 
keyword world,value 


define syntax mount_wo_label 
parameter pl .prompt=''Device’’,value(required, list type=Sdevice), label=devices 

parameter p2.prompt="'Label"’,value(list),label=volumes 

parameter p5,prompt="‘Log aoe Meno js ory geod ), Label=lognames 

disallow (<mount>foreign or <mount>nolabel) and (<mount>accessed or 
<mount>automatic or 
<mount>bind or 
<mount>cache or 
<mount>extension or 
<mount>hdr3 or 
<mount>initialize or 
<mount>Llabel or 
<mount>processor or 
<mount>quota or 
<mount>rebuild or 
<mount>windows ) 

disallow (<mount>group or <mount>system) and <mount>share 

disallow <mount>system and <mount>group 


define verb mount 

image vmount 

parameter pi ,prompt=‘Device’’.value(required 4 S03 - Fuper seer ‘ce? -Lebetadeutces 
parameter p2,prompt="‘Label'',value(required, (ist) ,label=volumes 

parameter p5,prompt="‘Log name"’,value type=Sout log). Label=Lognanes 


qualifier accessed, value(required, type=Snumber ) 

qualifier assist default 

qualifier automatic default 

qualifier bind value(required) 

qualifier blocksize, value lroquired. type=Snuaber? 

qualifier cache, value(required,list,type=cache_options) 

qualifier cluster 

qualifier comment, value(required) 

qualifier data_check, value(list typeodatecheck opt fens) 

qualifier density, value(required, type=$number 

qualifier extension, value(required, type=$number ) 

qualifier foreign, syntax=mount_wo_label ,nonnegatable 

qualifier gro 

qualifier hdr default 

qualifier initialize value(required,type=initialize_ options) 
;eeJNL ee qualifier journal value(list, type=journal_options) 


! Due to some constraints in DCL and CLI parsing, the NOLABEL qualifier must 
! be defined explicitly in this CLD, and cannot be specified as the negation 
! of LABEL. In that way we can use a different syntax for each one, and 

' also take advantage of the disallow clause. 


qualifier Label, default .nonnegatable 
qualifier nolabel, honnogatasie.Syntexsneunt_ve_ label 
qualifier message default 


ere 
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qualifier mount_verification default 

qualifier override, vaiuetrequired. | 1st. tygensount overrides) 

qualifier owner_uic, value(required,type=$Suic) 

qualifier processor, value(required 

qualifie 

qualifier quota default 

qualifier rebuild default 

qualifier recordsize, value(required, type=5number ) 

qualifier share 

qualifier system 

qualifier unload default 

qualifier windows, value(required, type=Snumber ) 
lifier write, default 


isallow (group or system) and share 
disallow label and nolabel 
disallow system and group 


i The following gpet strere have been commented out, since they were never 
! implemented. They are not being coded with the new CLI interface, but 
! are included here for historical purposes. 


] 
; qualifier drive, value(required) 

! placement=positional 

¢ qualifier ebcdic, value(required, list) 

: qualifier interchange 

qualifier user value(required,type=$uic) 


r protection, value(required,list,type=protection) 
qualifier visual, value (required) 
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